PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Business/Check Stuff/HyperCheck/card_7429.txt

Text File | 1988-04-19 | 12.1 KB | 572 lines

-- card: 7429 from stack: in
-- bmap block id: 8064
-- flags: 4000
-- background id: 2713
-- name: Balance
----- HyperTalk script -----

on DT
  put 0 into dpTot
  put 0 into test
  set lockScreen to true
  go to last card of background "DEPOSIT"
  put field "DP NUM" into cap
  go to first card of background "DEPOSIT"
  repeat until test = cap
    add field "DP AMOUNT" to dpTot
    put field "DP NUM" into test
    go to next card
  end repeat
  go to card "BALANCE"
  set lockScreen to false
  set numberFormat to "$0.00"
  put dpTot into field "dpTot"
end DT
on CT
  put 0 into chTot
  put 0 into test
  set lockScreen to true
  go to last card of background "CHECK"
  put field "CH NUM" into cap
  go to first card of background "CHECK"
  repeat until test = cap
    add field "CH AMOUNT" to chTot
    put field "CH NUM" into test
    go to next card
  end repeat
  go to card "BALANCE"
  set lockScreen to false
  set numberFormat to "0.00"
  put chTot into field "ckTot"
end CT
on ST
  put 0 into scTot
  put 0 into test
  set lockScreen to true
  go to last card of background "SER CHARGE"
  put field "SC NUM" into cap
  go to first card of background "SER CHARGE"
  repeat until test = cap
    add field "SC AMOUNT" to scTot
    put field "SC NUM" into test
    go to next card
  end repeat
  go to card "BALANCE"
  set lockScreen to false
  set numberFormat to "0.00"
  put scTot into field "scTot"
end ST


-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=158 top=145 right=167 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BALANCE
----- HyperTalk script -----
on mouseUp
  DT
  CT
  ST
  put field "dpTot" into baTot
  subtract field "ckTot" from baTot
  subtract field "scTot" from baTot
  put baTot into card field "baTot"
end mouseUp



-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=126 top=260 right=279 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: baTot
----- HyperTalk script -----
on idle
  set numberFormat to "$0.00"
end idle


-- part 15 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=11 top=185 right=278 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16
-- text size: 12
-- style flags: 256
-- line height: 22
-- part name:


-- part 16 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=261 top=145 right=167 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: STATEMENT
----- HyperTalk script -----
on mouseUp
  put 0.00 into chTot  --set variables to 0
  put 0.00 into ccTot
  put 0.00 into cdTot
  put 0.00 into dtTot
  put 0.00 into csTot
  put 0.00 into seTot
  put 0 into test
  set lockScreen to true
  go to last card of background "CHECK" --do checks
  put field "CH NUM" into cap
  go to first card of background "CHECK"
  repeat until test = cap
    if field "B" is "X"
    then add field "CH AMOUNT" to ccTot
  else add field "CH AMOUNT" to chTot
  put field "CH NUM" into test
  go to next card
end repeat
go to last card of background "DEPOSIT" --do deposits
put field "DP NUM" into cap
put 0 into test
go to first card of background "DEPOSIT"
repeat until test = cap
  if field "B" is "X"
  then add field "DP AMOUNT" to cdTot
else add field "DP AMOUNT" to dtTot
put field "DP NUM" into test
go to next card
end repeat
go to last card of background "SER CHARGE" --do service charge
put field "SC NUM" into cap
put 0 into test
go to first card of background "SER CHARGE"
repeat until test = cap
  if field "B" is "X"
  then add field "SC AMOUNT" to csTot
else add field "SC AMOUNT" to seTot
put field "SC NUM" into test
go to next card
end repeat
go to card "BALANCE"
set lockScreen to false
set numberFormat to "0.00"  --place values in fields
put ccTot into field "ccTot"
put chTot into field "chTot"
put cdTot into field "cdTot"
put dtTot into field "dtTot"
put csTot into field "csTot"
put seTot into field "seTot"
put 0.00 into cbTot  --do balances
put 0.00 into beTot
put cdTot into cbTot
subtract ccTot from cbTot
subtract csTot from cbTot
put cbTot into card field "cbTot"
put dtTot into beTot
subtract chTot from beTot
subtract seTot from beTot
put beTot into card field "beTot"
end mouseUp



-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=214 top=260 right=279 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cbTot
----- HyperTalk script -----
on idle
  set numberFormat to "$0.00"
end idle


-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=301 top=260 right=279 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: beTot
----- HyperTalk script -----
on idle
  set numberFormat to "$0.00"
end idle


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=426 top=268 right=290 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VERIFY
----- HyperTalk script -----
on mouseUp
  put 0.00 into cVer  --check balances
  put 0.00 into nVer
  put 0.00 into Ver
  put card field "cbTot" into cVer
  put card field "beTot" into nVer
  put cVer into Ver
  add nVer to Ver
  get card field baTot
  if it = Ver
  then VY
else nVY
end mouseUp
on VY
  show card field Verify
  wait 3 seconds
  hide card field Verify
end VY
on nVY
  show card field noVerify
  show button "OK"
end nVY


-- part 22 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=114 top=279 right=299 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Verify


-- part 24 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=13 top=279 right=302 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: noVerify


-- part 25 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=356 top=279 right=301 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  hide card field "noVerify"
  hide button "OK"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=395 top=217 right=234 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND CHECK
----- HyperTalk script -----
on mouseUp
  ask "Check Number ?" with 1--
  set lockScreen to true
  go to first card of background "CHECK"
  find word it in field "CH Num"
  if the result = "not found"
  then reS
else set lockScreen to false
end mouseUp
on reS
  go to card "Balance"
  set lockScreen to false
  put "No where to be found!" into card field "result"
  show card field "result"
  wait 2 seconds
  hide card field "result"
end reS


-- part 28 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=163 top=279 right=297 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: result


-- part 31 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=394 top=196 right=214 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND DEPOSIT
----- HyperTalk script -----
on mouseUp
  ask "Deposit Number ?" with 1
  set lockScreen to true
  go to first card of background "DEPOSIT"
  find word it in field "DP Num"
  if the result = "not found"
  then reS
else set lockScreen to false
end mouseUp
on reS
  go to card "Balance"
  set lockScreen to false
  put "No where to be found!" into card field "result"
  show card field "result"
  wait 2 seconds
  hide card field "result"
end reS



-- part 32 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=395 top=237 right=254 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND SER CHG
----- HyperTalk script -----
on mouseUp
  ask "Service Charge Number ?" with 1
  set lockScreen to true
  go to first card of background "SER CHARGE"
  find word it in field "SC Num"
  if the result = "not found"
  then reS
else set lockScreen to false
end mouseUp
on reS
  go to card "Balance"
  set lockScreen to false
  put "No where to be found!" into card field "result"
  show card field "result"
  wait 2 seconds
  hide card field "result"
end reS


-- part 38 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=362 top=145 right=167 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HELP?
----- HyperTalk script -----
on mouseUp
  visual iris open slow
  go to card "TOP"
  show card field "Info"
  show button 4
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=464 top=138 right=173 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close slow
  go "home"
end mouseUp



-- part 40 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=44 top=99 right=114 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for background part 9
----- text -----
Wednesday, September 9, 1987

-- part contents for background part 10
----- text -----
6:51 PM

-- part contents for background part 16
----- text -----
Joy Shrode
617 E. Shared Road
Carbondale, IL 62901


-- part contents for background part 17
----- text -----
Acc No 009 999 5 2536


-- part contents for card part 14
----- text -----
3935.66

-- part contents for background part 18
----- text -----
5500.00

-- part contents for background part 19
----- text -----
1556.34

-- part contents for background part 20
----- text -----
8.00

-- part contents for card part 15
----- text -----
Deposits Total
Checks Total
Service Charges
Balance

-- part contents for background part 26
----- text -----
1756.34

-- part contents for background part 27
----- text -----
534.45

-- part contents for background part 22
----- text -----
5500.00

-- part contents for background part 23
----- text -----
0.00

-- part contents for background part 24
----- text -----
8.00

-- part contents for background part 25
----- text -----
0.00

-- part contents for card part 19
----- text -----
3735.66

-- part contents for card part 20
----- text -----
-534.45

-- part contents for card part 22
----- text -----
Cleared and non Cleared equal total balance

-- part contents for card part 24
----- text -----
ERROR! Cleared and non Cleared do not equal total balance

-- part contents for card part 28
----- text -----
No where to be found!

-- part contents for card part 40
----- text -----
This stack produced by Eldon Benz RR2 box318 Carbondale IL 62901